perm filename R1.SAI[S,AIL]1 blob sn#097031 filedate 1974-04-12 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "R1"
C00003 ENDMK
C⊗;
BEGIN "R1"

RECORD_CLASS FOO (INTEGER X,Y,Z;REAL XX);

RECORD_POINTER (FOO) F1,F2;

F1←NEW_RECORD(FOO);
F2←F1;

FOO:X[F1]←1;
FOO:Y[F1]←FOO:X[F1]+1;

END